home *** CD-ROM | disk | FTP | other *** search
/ Aminet 3 / Aminet 3 - July 1994.iso / Aminet / dev / lang / struct100.lha / Struct1.0 / SpeedTests / Test7.amos / Test7.amosSourceCode
Encoding:
AMOS Source Code  |  1993-08-22  |  78 b   |  9 lines
  1. A=0
  2. B=0
  3. For Z=1 To 8000000
  4. If 300-97+B>300-97+A
  5. Inc A
  6. Else 
  7. Inc B
  8. End If 
  9. Next